testfile(".");
testfile("..");
testfile("../file");
testfile("../file/file.pl");
testfile("file.pl");

sub testfile {
	my $file = shift;
	
	if ( -f $file ) {
		print "$file:	file\n";
	}
	
	if ( -d $file ) {
		print "$file:	directory\n";
	}
}
